1 REM PUBLIC DOMAIN 2 POKE 657,128:POKE 650,255:G$="HALLO" 3 DIM E$(4),C$(5),WS$(4) 5 REM VAN DIEMENS'S LAND 6 REM SIMULATION 91' 7 REM VON PETER DIEHM 9/91 8 POKE 53280,0:POKE53281,0:PRINTCHR$(142)"[147]":GG=1:GOSUB 15 9 P=100:Y=100:CN=1870:GOTO 1050 10 REM UNTERPROGRAMM TASTE 11 PRINTSPC(30)"[154] TASTE " 12 GET F$:IFF$="" THEN 12 13 RETURN 15 REM UNTERPROGRAMM STAEDTE 16 C$(1)="HOBART":C$(2)="DEVON PORT":C$(3)="LAUNCESTON":C$(4)="BURNIE" 17 C$(5)="PORT LATTA":WS$(1)="SCHWEIZER":WS$(2)="ENGLISCHE":WS$(3)="DEUTSCHE" 18 WS$(4)="IRISCHER" 19 E$(1)="MAIN LAND":E$(2)="GROSS BRITANIEN" 20 E$(3)="EUROPAISCHES FESTLAND":E$(4)="KRON KOLONIEN" 21 V=53248:FORI=0TO62:READXX:POKE832+I,XX 22 NEXTI 25 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,128,0,0,192,0,0,224 26 DATA 255,255,240,255,255,248,255,255,248,255,255,248,255,255,248 29 DATA 255,255,240,0,0,224,0,0,192,0,0,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 35 POKE 53269,0:POKE 2040,13:POKE V+43,0:POKEV+39,1 36 RETURN 40 REM RAHMEN 41 PRINT"[147] 42 [153]"(null)";:[129]I[178]1[164]37:[153]"USR";:[130]:[153]"(null)" 43 [129]I[178]1[164]20:[153]"FN";[163]38);"+":[130] 44 [153]"(null)";:[129]I[178]1[164]37:[153]"AND";:[130]:[153]"SQR":[153]"":[142] 45 [153]" ":[142] 50 [143] MAIN 51 [151] 53269,1:[153]"LOAD":GG[178]1:P[178]164:Y[178]49 52 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# " 53 [139] CN[179]1904 [167][153][166]5)" VAN DIEMENS'LAND JAHR"CN"" 54 [139] CN[177]1904 [176] CN[178]1904[167][153][166]5)" TASMANIEN JAHR"CN"" 55 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# " 56 [153][166]1)" HOPFEN"H" KG.";[163]20);"PAPIER"D" KG" 57 [153][166]1)" WOLLE "W" KG.";[163]20);"GELD "A"" 58 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 60 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 61 [153]"PEEKFN +PEEK 62 PRINT"[194][165] - EISENBAHN - UEBERSICHT [170][194] 63 [153]"PEEKFN - ROHSTOFFE - LAND/WALD +PEEK 64 PRINT"[194][165] - ARBEITER - MONATSENDE [170][194] 65 [153]"PEEKFN - LOAD/SAVE +PEEK 66 PRINT"[194][165] [170][194] 67 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 68 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] 70 [151] V[170]1,P:[151]V[170]0,Y 71 [161] D$:[139]D$[178]"" [167] 71 73 [139] D$[178]"INPUT"[167] GG[178]GG[170]1 74 [139] D$[178]"DIM"[167] GG[178]GG[171]1 75 [139] D$[178]"READ"[167] 90 76 [139] GG[178]8 [167] GG[178]1 78 [139] GG[178]0 [167] GG[178]7 79 [139] GG[178]1 [167] P[178]164:Y[178]49 80 [139] GG[178]2 [167] P[178]171:Y[178]49 81 [139] GG[178]3 [167] P[178]178:Y[178]49 82 [139] GG[178]4 [167] P[178]186:Y[178]49 83 [139] GG[178]5 [167] P[178]164:Y[178]200 84 [139] GG[178]6 [167] P[178]171:Y[178]200 85 [139] GG[178]7 [167] P[178]178:Y[178]200 86 [137] 70 90 [145] GG [137] 200,400,700,100,300,790,1000 91 [137]70 100 [143] LOAD/SAVE 101 [153]"LOAD":GG[178]1:P[178]155:Y[178]50 102 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR ":G$[178]B$ 103 [153][166]1)" SPIELSTAND... 104 PRINTSPC(1)" VAN DIEMEN'S LAND JAHR"CN"." 105 PRINTSPC(1)" [158] SPEICHERUNG [146]: "B$"" 107 PRINT"" 108 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 109 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 110 PRINT"[194][165] [170][194] 111 [153]"PEEKFN - SPIELSTAND LADEN - SPEICHERN+PEEK 112 PRINT"[194][165] [170][194] 113 [153]"PEEKFN  F7=ZURUECK WAIT +PEEK 114 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189] 115 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP" 116 [151] V[170]1,P:[151]V[170]0,Y 117 [161] D$:[139]D$[178]"" [167] 117 118 [139] D$[178]"INPUT"[167] GG[178]GG[170]1 119 [139] D$[178]"LET" [167] 50 120 [139] D$[178]"DIM"[167] GG[178]GG[171]1 121 [139] D$[178]"READ"[167] 127 122 [139] GG[178]3 [167] GG[178]1 123 [139] GG[178]0 [167] GG[178]2 124 [139] GG[178]1 [167] P[178]155:Y[178]50 125 [139] GG[178]2 [167] P[178]155:Y[178]225 126 [137]116 127 [145] GG [137] 130,150 130 [143] LOAD 131 [151]53269,0 132 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR " 135 [133] " FILE WAIT NAME ";G$:G$[178]"(null)"[170]G$[170]",S,R 136 OPEN3,8,3,G$ 137 INPUT#3,A,H,W,D,HA,HB,HC,HD,CN,WA,L,GV,S,UH,GE,W$,ZD,XV,B$,P,Y 140 CLOSE3 141 GOSUB10 142 GOTO 50 150 REM SAVE/LOAD 151 POKE53269,0 152 FORI=1TO19:PRINT"[156] [146]-";:NEXT:PRINT"[156] " 156 INPUT " FILE  NAME [146] ";G$:R$=CHR$(13):G$="[255]"+G$+",S,W" 158 OPEN3,8,3,G$ 160 PRINT#3,A;R$;H;R$;W;R$;D;R$;HA;R$;HB;R$;HC;R$;HD;R$;CN;R$;WA;R$;L 161 PRINT#3,GV;R$;S;R$;UH;R$;GE;R$;W$;R$;ZD;R$;XV;R$;B$;R$;P;R$;Y 165 CLOSE3 168 GOSUB10 179 GOTO50 200 REM EISENBAHN 201 PRINT"[147]" 202 FORI=1TO19:PRINT"[158] [146]-";:NEXT:PRINT"[158] ":P=196:Y=49:GG=1 204 PRINTSPC(6)" [158] [146]  [146]  [146] EISENBAHN [158] [146]  [146]  [146] 206 [129]I[178]1[164]19:[153]"SYS WAIT-";:[130]:[153]"SYS " 207 [153][166]1)" GELD"A"";[163]25);"PREIS 3000 $ 208 PRINTSPC(1)" EISENBAHNVERBINDUNGEN: 210 [139] HA[178]1 [167][153][166]1)" HOBART - LAUNCESTON 211 IF HB=1 THENPRINTSPC(1)" '' - DEVON PORT 212 [139] HC[178]1 [167][153][166]1)" '' - BURNIE 213 IF HD=1 THENPRINTSPC(1)" '' - PORT LATTA 214 [153]"" 220 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 222 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 223 [153]"PEEKFN +PEEK 224 PRINT"[194][165] - STRECKE ANLEGEN - ZURUECK [170][194] 225 [153]"PEEKFN +PEEK 226 PRINT"[194][165] [170][194] 227 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 228 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":POKE53269,1 229 POKE V+1,P:POKEV+0,Y 230 GET D$:IFD$="" THEN 230 231 IF D$="[133]"THEN GG=GG+1 232 IF D$="[134]"THEN GG=GG-1 233 IF D$="[135]"THEN 245 235 IF GG=3 THEN GG=1 236 IF GG=0 THEN GG=2 237 IF D$="[136]" THEN 50 238 IF GG=1 THEN P=196:Y=49 239 IF GG=2 THEN P=196:Y=225 240 GOTO 229 245 ON GG GOTO 250,50 250 PRINT"[147]":POKE 53269,0 252 FORI=1TO19:PRINT"[154] [146]-";:NEXT:PRINT"[154] " 253 PRINTSPC(1)" GELD"A"";TAB(25);"PREIS 3000 $ 255 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 256 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 257 [153]"PEEKFNEISENBAHNVERBINDUNGEN: +PEEK 258 PRINT"[194][165] [170][194] 259 [139] HB[178]0 [167][153]"PEEKFN -1- HOBART - DEVON PORT +PEEK 261 PRINT"[194][165] [170][194] 262 [139] HC[178]0 [167][153]"PEEKFN -2- HOBART - BURNIE +PEEK 263 PRINT"[194][165] [170][194] 264 [139] HD[178]0 [167][153]"PEEKFN -3- HOBART - PORT LATTA +PEEK 265 PRINT"[194][165] [170][194] 266 [153]"PEEKFN -4-  ZURUECK WAIT +PEEK 267 PRINT"[194][165] [170][194] 270 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 271 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":GOSUB600 273 GET D$:IFD$="" THEN 273 274 IF D$="[136]" THEN 200 275 ON VAL (D$) GOTO 280,285,290,200 276 GOTO 273 280 IF HB=1 THEN 295 281 IF A<3000 THEN 298 282 PRINTSPC(1)"DIE VERBINDUNG WIRD GEBAUT ! 283 A[178]A[171]3000:HB[178]1:[141]10:[137] 2000 285 [139] HB[178]1 [167] 295 286 [139] A[179]3000 [167] 298 287 [153][166]1)"DIE VERBINDUNG WIRD GEBAUT ! 288 A=A-3000:HC=1:GOSUB10:GOTO 2000 290 IF HB=1 THEN 295 291 IF A<3000 THEN 298 292 PRINTSPC(1)"DIE VERBINDUNG WIRD GEBAUT ! 293 A[178]A[171]3000:HD[178]1:[141]10:[137] 2000 295 [153][166]1)" SCHON CONT VERBUNDEN WAIT !":[141]10:[137]250 298 [153][166]1)" ZUWENIG SYS GELD WAIT VORHANDEN !":[141]10:[137]50 300 [143] UEBERSICHT 301 [153]"LOAD":[151]53269,0 302 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 303 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 305 [153]"PEEKFN UEBERSICHT VAN DIEMEN'S LAND +PEEK 307 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189] 308 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP" 309 [153][166]1)" HOPFEN"H"KG";[163]22);"PAPIER"D"KG " 310 [153][166]1)" WALD "WA"QKM";[163]22);"LAND "L"QKM" 311 [153][166]1)" GELD "A"$";[163]22);"WOLLE "W"KG " 312 [153][166]1)" JAHR "CN"";[163]22);"ARBEITER"C"" 314 [153][166]1)" SCHAFE "S"" 315 [153][166]1)" SYS EISENBAHNSTRECKEN: WAIT 316 IF HA=1 THENPRINTSPC(1)" HOBART - LAUNCESTON 317 [139] HB[178]1 [167][153][166]1)" '' - DEVON PORT 318 IF HC=1 THENPRINTSPC(1)" '' - BURNIE 319 [139] HD[178]1 [167][153][166]1)" '' - PORT LATTA 320 GOSUB10:GOTO50 400 REM ROHSTOFFE ! 401 PRINT"[147]":POKE53269,1:GG=1:P=155:Y=49 403 FORI=1TO19:PRINT" [146]-";:NEXT:PRINT" " 404 PRINTSPC(1)" PAPIER"D"";TAB(22);"WOLLE"W"" 405 PRINTSPC(1)" HOPFEN"H"";TAB(22);"GELD"A"" 406 PRINTSPC(1)" WALD "WA"QKM";TAB(22);"LAND"L"QKM" 407 FORI=1TO19:PRINT" [146]-";:NEXT:PRINT" " 408 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 409 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 410 PRINT"[194][165] [170][194] 411 [153]"PEEKFN - PAPIER PRODUZIEREN +PEEK 412 PRINT"[194][165] [170][194] 413 [153]"PEEKFN - HOPFEN ANBAUEN +PEEK 414 PRINT"[194][165] [170][194] 415 [153]"PEEKFN - SCHAFE KAUFEN/VERKAUFEN +PEEK 416 PRINT"[194][165] [170][194] 417 [153]"PEEKFN - SYS ZURUECK WAIT +PEEK 418 PRINT"[194][165] [170][194] 420 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 422 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] 423 [151] V[170]1,P:[151] V[170]0,Y 425 [161] D$:[139]D$[178]"" [167] 425 427 [139] D$[178]"INPUT" [167] GG[178]GG[170]1 428 [139] D$[178]"DIM" [167] GG[178]GG[171]1 429 [139] D$[178]"LET" [167] 50 430 [139] D$[178]"READ" [167] 440 431 [139] GG[178]5 [167] GG[178]1 432 [139] GG[178]0 [167] GG[178]1 433 [139] GG[178]2 [167] P[178]171:Y[178]49 434 [139] GG[178]3 [167] P[178]187:Y[178]49 435 [139] GG[178]4 [167] P[178]203:Y[178]49 436 [139] GG[178]1 [167] P[178]155:Y[178]49 439 [137] 423 440 [145] GG [137] 450,500,550,50 450 [143] PAPIER 451 [153]"LOAD":[151] 53269,0 455 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 456 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 457 [153]"PEEKFN *** PAPIER PRODUKTION *** +PEEK 458 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189] 459 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP" 460 [153][166]1)" WALD"WA"QKM";[163]22);"PAPIER"D"" 463 [129]I[178]1[164]19:[153]" WAIT-";:[130]:[153]" " 465 [153][166]1)" 0=ZURUECK 467 PRINTSPC(1)" WIEVIEL  WALD [146] FUER DIE PAPIER 468 [153][166]1)" PRODUKTION FREIGEBEN ? 470 INPUT " [154]--->[146] ";DD 471 IF DD=0 OR DD<0 THEN 400 473 IF DD>WA THEN 495 475 WA=WA-DD 476 PRINTSPC(1)" DU LAESST"DD"QKM WALD  ROHDEN [146] !!! 478 LM[178]DD[172]H:LM[178]LM[172]10:LM[178]LM[170]DD:D[178]D[170]LM 479 [153][166]1)" ES WERDEN"LM"KG PAPIER PRODUZIERT. 480 GOSUB10:GOTO400 495 PRINTSPC(1)" SOVIEL WALD BESITZT DU NICHT !" 496 GOSUB10:GOTO400 500 REM HOPFEN 501 PRINT"[147]":POKE 53269,0 502 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 503 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 504 PRINT"[194][165] [193][193][193] HOPFEN ANBAUEN [193][193][193] [170][194] 505 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 506 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]" 507 PRINTSPC(1)" HOPFEN"H" KG";TAB(22);"LAND"L"QKM " 508 FORI=1TO19:PRINT"[154] [146]-";:NEXT:PRINT"[154] ":IF GV=1 THEN 540 509 PRINTSPC(1)" 0=ZURUECK 510 [153][166]1)" WIVIEL HOPFEN WILLST DU DIESES JAHR 511 PRINTSPC(1)" ANBAUEN (1QKM=5000 KG.) ! 512 [133] " SYS--->WAIT ";NN 513 [139] NN[178]0 [176] NN[179]0 [167] 400 514 [139] NN[177]L [167] 545 515 L[178]L[171]NN 516 [153][166]1)" DU LAESST"NN" QKM BEPFLANZEN !":GV[178]1 518 [141]10:[137]400 540 [143] NUR EINMAL 541 [153][166]1)" NUR EINMAL IM JAHR MOEGLICH !":[141]10:[137]400 545 [153][166]1)" SOVIEL LAND BESITZT DU NICHT !" 546 [141]10:[137]400 550 EE[178][181](20[172][187](1))[170]1:EE[178]EE[170]L 551 [153]"LOAD":GG[178]1:Y[178]40:P[178]148 552 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 553 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 554 [153]"PEEKFN *** SCHAF ZUCHT *** +PEEK 555 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189] 556 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP" 558 [153][166]1)" SCHAFE"S"";[163]22);"GELD"A"":EE[178][181](20[172][187](1))[170]1:EE[178]EE[170]L 559 [153][166]1)" PREIS PRO SCHAF"EE"$" 560 [129]I[178]1[164]19:[153]"DEF WAIT-";:[130]:[153]"DEF " 561 [153][166]1)" - SCHAFE KAUFEN 562 PRINTSPC(1)" - SCHAFE VERKAUFEN 563 [153][166]1)" - ZURUECK  564 FORI=1TO19:PRINT"[150] [146]-";:NEXT:PRINT"[150] " 565 POKE V+0,Y:POKEV+1,P 566 GET D$:IFD$="" THEN 566 567 IF D$="[133]"THEN GG=GG+1 568 IF D$="[136]" THEN 400 569 IF D$="[134]"THEN GG=GG-1 570 IF D$="[135]"THEN 580 571 IF GG=4 THEN GG=1 572 IF GG=0 THEN GG=3 573 IF GG=1 THEN P=148:Y=40 574 IF GG=2 THEN P=163:Y=40 575 IF GG=3 THEN P=179:Y=40 576 GOTO 565 580 ON GG GOTO 640,680,400 599 END 600 POKE 53269,0 601 SI=54272:FORII=54272 TO 54296:POKE II,0:NEXT 603 FOR JJ= 1 TO 40:POKESI+24,15:POKESI+5,8:POKESI+1,20 605 POKESI+4,129: FOR QQ=1 TO 50:NEXTQQ 606 POKESI+4,128 608 NEXT JJ 610 POKESI+24,0 611 RETURN 640 REM SCHAFE KAUFEN 641 INPUT " WIEVIEL  SCHAFE [146] KAUFEN ";TT 643 IF TT=0 THEN 551 645 RT=TT*EE 646 IF RT>A THEN 670 648 A=A-RT:S=S+TT 649 PRINTSPC(1)" DU KAUFST"TT"  SCHAFE [146] !" 650 GOSUB10:GOTO551 670 PRINTSPC(1)" ZUWENIG GELD !":GOSUB10:GOTO551 680 REM SCHAFE VERKAUFEN 681 TT=0:INPUT " WIEVIEL  SCHAFE [146] VERKAUFEN ";TT 682 IF TT>S THEN 690 684 RQ=TT*EE:A=A+TT:S=S-TT 686 PRINTSPC(1)" DU VERKAUFST"TT" SCHAFE !":GOSUB10:GOTO551 690 PRINTSPC(1)" SOVIEL SCHAFE BESITZT DU NICHT !":GOSUB10:GOTO 551 700 REM ARBEITER 701 PRINT"[147]":POKE 53269,0:GG=1 702 PRINT" [154][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 704 [153]"CONTOR(null)(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)CONT(null)^ 705 PRINT"[154][194][165][165] [216][216][216] ARBEITER [216][216][216] [170][154][170][194] 706 [153]"CONT/(null)(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQRCONTSQREXP 707 PRINT" [154][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]" 708 PRINTSPC(1)" EINSTELLUNGSKOSTEN 20 $ 710 [153][166]1)" + = EINSTELLEN / - =ENTLASSEN ! 711 PRINTSPC(1)" [154] F7=ZURUECK [146]" 712 PRINTSPC(1)" ARBEITER"C"";TAB(22)"GELD"A"" 715 GET D$:IFD$="" THEN 715 717 IF D$="+" THEN C=C+1:A=A-20 718 IF D$="-" THEN C=C-1 720 IF A<0 THEN A=1:C=C-1:GOTO 750 721 IF C=0 OR C<0 THEN C=0 723 IF D$="[136]" THEN 50 724 FR=FR+1:IF FR=4 THEN FR=0:GOTO700 725 GOTO 710 790 UP=INT(500*RND(1))+1:UP=UP+W:UP=UP-HA:UX=UP+H:UX=UX-L 791 GOTO800 793 REM PETER DIEHM 794 REM WALDSTR.58 795 REM 6149 RIMBACH1 800 REM PUBLIC DOMAIN 801 REM LAN/WALD 802 PRINT"[147]":GG=1:P=147:Y=49:POKE 53269,1 803 FORI=1TO20:PRINT"--";:NEXT 805 PRINTSPC(1)" [216][216][216] LAND UND WALD [216][216][216]":FORI=1TO20:PRINT"--";:NEXT 806 PRINTSPC(1)" WALD"WA"QKM";TAB(22);"LAND"L"QKM" 809 PRINTSPC(1)" GELD"A" $" 810 PRINTSPC(1)" PREIS PRO QKM LAND ="UP" !" 811 PRINTSPC(1)" PREIS PRO QKM WALD ="UX" !":PRINT 820 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174] 821 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 822 PRINT"[194][165] [170][194] 823 [153]"PEEKFN - LAND KAUFEN +PEEK 824 PRINT"[194][165] [170][194] 825 [153]"PEEKFN - LAND VERKAUFEN +PEEK 826 PRINT"[194][165] [170][194] 827 [153]"PEEKFN - WALD KAUFEN +PEEK 828 PRINT"[194][165] [170][194] 829 [153]"PEEKFN - WALD VERKAUFEN CONT F7=ZURUECK WAIT +PEEK 830 PRINT"[194][165] [170][194] 832 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 833 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189] 834 [151] V[170]1,P:[151]V[170]0,Y 835 [161] D$:[139]D$[178]"" [167] 835 837 [139] D$[178]"INPUT" [167] GG[178]GG[170]1 838 [139] D$[178]"DIM" [167] GG[178]GG[171]1 839 [139] D$[178]"LET" [167] 50 840 [139] D$[178]"READ" [167] 850 841 [139] GG[178]5 [167] GG[178]1 842 [139] GG[178]0 [167] GG[178]1 843 [139] GG[178]2 [167] P[178]163:Y[178]49 844 [139] GG[178]3 [167] P[178]179:Y[178]49 845 [139] GG[178]4 [167] P[178]195:Y[178]49 846 [139] GG[178]1 [167] P[178]147:Y[178]49 849 [137] 834 850 [145] GG [137] 870,890,920,950 851 [137] 834 855 [153]"LOAD" 858 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 860 PRINT"[176][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][174] 861 [153]"PEEKFN +PEEK 862 PRINT"[194][165] LAND UND WALD MENUE [154]0=MENUE [146] [170][194] 863 [153]"PEEKFN +PEEK 868 PRINT"[173][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][189] 869 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP":[142] 870 [143] LAND KAUFEN 871 [141]855:[151]53269,0 875 [153][166]1)" GELD"A"";[163]22);"LAND"L"QKM" 877 [153][166]1)" PREIS PRO QKM LAND ("UP")" 880 [153][166]1)" WIEVIEL LAND KAUFEN ? 881 INPUT" [158] ---> [146] ";BB 882 IF BB=0 THEN 800 883 RG=UP*BB:IF RG>A THEN 990 884 A=A-RG:L=L+BB:RG=0 886 PRINTSPC(1)" DU KAUFST"BB"QKM LAND !":GOSUB10:GOTO800 890 GOSUB855:POKE53269,0:BB=0 892 PRINTSPC(1)" GELD"A"";TAB(22);"LAND"L"QKM" 893 PRINTSPC(1)" PREIS PRO QKM LAND ("UP")" 895 PRINTSPC(1)" WIEVIEL LAND VERKAUFEN ? 896 [133]" CONT ---> WAIT ";BB 897 [139] BB[177]L [167] 995 898 [139] BB[178]0 [167] 800 899 RG[178]BB[172]UP:A[178]A[170]RG:L[178]L[171]BB 900 [153][166]1)" DU VERKAUFST"BB"QKM LAND !":[141]10:[137]800 920 [141] 855:[151] 53269,0:BB[178]0 921 [153][166]1)" GELD"A"";[163]22);"WALD"WA"QKM" 922 [153][166]1)" PREIS PRO QKM WALD ("UX")":[153] 923 [153][166]1)" WIEVIEL WALD KAUFEN ? 925 INPUT"  ---> [146] ";BB 927 IF BB=0 THEN 800 928 RF=BB*UX:IF RF>A THEN 990 929 A=A-RF:WA=WA+BB 930 PRINTSPC(1)" DU KAUFST"BB"QKM WALD !":GOSUB10:GOTO800 950 GOSUB 855:POKE 53269,0:BB=0 951 PRINTSPC(1)" GELD"A"";TAB(22);"WALD"WA"QKM" 952 PRINTSPC(1)" PREIS PRO QKM WALD ("UX")":PRINT 953 PRINTSPC(1)" WIEVIEL WALD VERKAUFEN ? 955 [133]" SYS ---> WAIT ";BB 957 [139] BB[177]WA [167] 995 958 [139] BB[178]0 [167] 800 959 RF[178]UX[172]BB:A[178]A[170]RF:WA[178]WA[171]BB 960 [153][166]1)" DU VERKAUFST"BB"QKM WALD !":[141]10:[137]800 990 [153][166]1)" SOVIEL GELD HAST DU NICHT !":[141]10:[137]800 995 [153][166]1)" DAS GEHT NICHT !":[141]10:[137]800 1000 [143] JAHRES ENDE 1001 [153]"LOAD":[151] 53269,0:GG[178]1 1003 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^WAIT 1004 PRINT"[176][207][154][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][208][174] 1005 [153]"PEEKFNCONTSGN JAHRES PRODUKTION ! ++PEEK 1010 PRINT"[173][204][154][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][186][189] 1011 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXPWAIT" 1014 [139] GE[178]2 [167][153][166]1)" JAHR"CN" IMPERIALISTIN "W$"" 1015 [139] GE[178]1 [167][153][166]1)" JAHR"CN" IMPERIALIST "W$"" 1016 JB[178]S[172]C:JB[178]JB[170]100:JB[178]JB[171][181](10[172][187](1))[170]1:W[178]W[170]JB 1017 [153][166]1)" DEINE SCHAFE PRODUZIERTEN"JB" KG":WK[178][181](10[172][187](1))[170]1 1018 [153][166]1)" WOLLECONT UND VERMEHRTEN SICH UM"WK" ":S[178]S[170]WK 1019 [153][166]1)" TIERE.":[139] GV[178]0 [167] 1035 1020 DI[178][181](4[172][187](1))[170]1:[139] DI[177]S [176] S[179]20 [167] 1022 1021 [153][166]1)""DI"TIERE STARBEN.":S[178]S[171]DI 1022 GV[178]0:RP[178]NN[172]255:RP[178]RP[171]S:RP[178]RP[170][181](200[172][187](1))[170]1:L[178]L[170]NN 1023 OJ[178][181](3[172][187](1))[170]1 1024 [145] OJ [137] 1025,1027,1029 1025 [153][166]1)"SYS DIE HOPFEN ERNTE WAR ERFOLGREICH !":RP[178]RP[170]H 1026 [153][166]1)" ERWIRTSCHAFTETER HOPFEN "RP" KG.":H[178]H[170]RP:[137]1035 1027 [153][166]1)"SYS DIE ERNTE WAR DURCHSCHNITT ! 1028 PRINTSPC(1)" ERWIRTSCHAFTETER HOPFEN "RP" KG.":H=H+RP:GOTO 1035 1029 PRINTSPC(1)"[158] SEHR SCHLECHTE HOPFEN ERNTE !":RP=RP-H:RP=RP-S 1030 IF RP>1000 THEN RP=RP-1000:GOTO1032 1031 RP=INT(1000*RND(1))+1:RP=RP+S 1032 IF RP<0 THEN RP=1000 1033 PRINTSPC(1)" ERWIRTSCHAFTETER HOPFEN "RP" KG.":H=H+RP:GOTO 1035 1035 PRINTSPC(1)"[154] DER LOHN FUER ALLE DEINE ARBEITER 1036 WX[178]C[172]G:WX[178]WX[170]P:A[178]A[171]WX 1037 [153][166]1)" BETRUG"WX" $" 1038 [153][166]1)" DURCH VERKAUF VON WAREN IM INNLAND 1039 JY=INT(20*RND(1))+1:JY=JY+S:JY=JY+C 1040 PRINTSPC(1)" ERHIELST DU"JY"$ !":A=A+JY 1041 GOSUB10 1049 GOTO5000 1050 GOSUB30000 1051 PRINT"[147]" 1052 FORI=1TO19:PRINT" [146]-";:NEXT:PRINT" " 1053 PRINTSPC(0)" ANLEITUNG ! 1054 [153][166]0)"------------- 1055 A=600:D=5:H=10:W=15:HA=1:G=4:C=15:WA=1:L=3:S=25 1056 A=A+INT(60*RND(1))+1:A=A-S 1057 D=D+INT(4*RND(1))+1:H=H+D 1058 ZD=1:C=C-D:C=C+INT(9*RND(1))+1 1059 S=S+INT(10*RND(1))+1 1060 PRINTSPC(0)" DAS PROGRAMM WIRD DURCH DIE F-TASTEN 1061 [153][166]0)" GESTEUERT DIESE HABEN FOLGENDE 1063 PRINTSPC(0)" BEDEUTUNGEN: 1064 [153][166]0)" F1 = RUNTERCLR................. 1065 PRINTSPC(0)" F3 = HOCH[156]................... 1066 [153][166]0)" F5 = AKTION AUFRUFENCLR........ 1068 PRINTSPC(0)" F7 = ZURUECK[156]................ 1070 [153][166]0)" AUSERDEM KANNST DU MIT '0' EINEN 1071 PRINTSPC(0)" EINGABEBEFEHL VERLASSEN. 1072 [153][166]0)" WILLST DU DIR DIE TASTENFUNKTIONEN 1073 PRINTSPC(0)" AUSDRUCKEN LASSEN ";:INPUT O$ 1075 IF O$="J" OR O$="JA" THEN 1080 1076 GOTO 1100 1080 PRINT"[147]":FORI=1TO19:PRINT"[152] [146]-";:NEXT:PRINT"[152] " 1081 PRINTSPC(0)" ZUM DRUCKEN BLEISTIFT UND ZETTEL ZU 1082 [153][166]0)" HAND NEHMEN UND SCHREIBEN. 1083 PRINTSPC(0)" F1=HOCH -STOP- F3=RUNTER -STOP- 1084 [153][166]0)" F5=AKTION -STOP- F7=ZURUECK -STOP- 1085 PRINTSPC(0)" F8=HILFE -STOP- 1086 [153][166]0)" DRUCKER SYS EINSCHALTEN WAIT UND TASTE 1087 PRINTSPC(0)" DRUECKEN !" 1088 GET D$:IFD$="" THEN 1088 1090 OPEN1,4:CMD1 1091 PRINT#1," ANLEITUNG ! 1092 [152]1,"------------- 1093 PRINT#1," F1 = HOCH 1094 [152]1," F3 = RUNTER 1095 PRINT#1," F5 = AKTION AUFRUFEN 1096 [152]1," F7 = ZURUECK 1097 PRINT#1," [160] 1098 [152]1," VON PETER DIEHM (W) 8/9/91 1099 CLOSE1:PRINTSPC(0)" PRINTING PERFEKT !":GOSUB10 1100 REM VORGESCHICHTE 1101 PRINT"[147]" 1102 FORI=1TO19:PRINT"[156] [146]-";:NEXT:PRINT"[156] " 1103 PRINTSPC(0)"  STORY: [146]" 1104 PRINTSPC(0)" DIE ENGLISCHE KRONE SENDET DICH IN DAS 1105 [153][166]0)" FERNE VAN DIEMEN'S LAND DAS HEUTIGE 1106 PRINTSPC(0)" TASMANIEN UM DORT IN HOBART DIE FUEHR= 1107 [153][166]0)" UNG EINER HANDELSGESELLSCHAFT ZU 1110 PRINTSPC(0)" UEBERNEHMEN, WELCHE DIE AUFGABE HAT 1111 [153][166]0)" PAPIER,WOLLE UND HOPFEN ZU PRODUZIEREN 1112 PRINTSPC(0)" UND DAS ERWIRTSCHATETE DANN IN DIE 1113 [153][166]0)" KOLONIEN ZU VERSCHIFFEN. AUSERDEM 1114 PRINTSPC(0)" SOLL DAS LAND MIT DER EISENBAHN 1115 [153][166]0)" ERSCHLOSSEN WERDEN DIESES WIRD DURCH 1116 PRINTSPC(0)" DIE KRONE BESONDERS GUT HONORIERT !" 1117 PRINTSPC(1)" GOOD LUCK ! [146]" 1118 GOSUB10 1119 PRINT"[147]" 1120 FORI=1TO19:PRINT"[156] [146]-";:NEXT:PRINT"[156] " 1121 PRINTSPC(3)" DATA HOUSE PD-SOFTWARE 1122 [153][166]3)" INHABER KAI-UWE DITTRICH 1123 PRINTSPC(3)" HUSUMER STR.10, 3502 VELLMAR 1124 [153][166]0)" NAME DES SPIELERS ? 1125 INPUT" [158] ---> [146] ";W$ 1127 IF VAL(W$)>10 THEN 1120 1128 PRINTSPC(0)" IMPERIALIST ODER IMPERIALISTIN 1130 [153][166]0)" SYS M WAIT ODER CONT W WAIT 1131 GET R$:IFR$="" THEN 1131 1132 IF R$="M" THEN GE=1 1133 IF R$="W" THEN GE=2 1135 PRINTSPC(0)" VIEL ERFOLG ! 1137 [153][166]0)" (W) BY PETER DIEHM 8/9/91 1138 GOSUB10:GOTO 50 2000 PRINT"[147]":POKE 53269,0 2001 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146] 2004 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 2005 PRINT"[194][165] --- BRIEF DER KRONE --- [170][194] 2010 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQREXP 2011 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]" 2012 PRINTSPC(1)" ALS DAS ENGLISCHE KOENIGSHAUS VON 2014 [153][166]1)" DEM BAU DER EISENBAHNVERBINDUNG 2015 PRINTSPC(1)" ERFAEHRT BESCHLIESST MAN DIR EINE 2016 [153][166]1)" FINANZSPRITZE IN HOEHE VON 6000 $ 2018 PRINTSPC(1)" ZUKOMMEN ZU LASSEN !":GOSUB10 2020 A=A+6000 2030 POKE 53269,1:GOTO 200 5000 REM EXPORT 5001 PRINT"[147]":GG=1:P=155:Y=53:POKE53269,1 5003 PRINT"[154] [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146] 5004 [153]"OR(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)^ 5005 PRINT"[194][165] --- EXPORT --- [170][194] 5010 [153]"/(null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND(null)EXP 5011 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]":GV=0 5016 PRINTSPC(1)" HOPFEN"H" KG.";TAB(20);"PAPIER"D" KG" 5017 PRINTSPC(1)" WOLLE "W" KG.";TAB(20);"GELD "A"" 5018 PRINTSPC(1)" WOHIN EXPORTIEREN ? [154] F7=WEITER [146] 5020 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# " 5021 [129] MM[178]1[164]4:[153][166]1)" - "E$(MM)"":[130] 5022 [153]:[129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# " 5023 [151] V[170]1,P:[151]V[170]0,Y 5024 [161] D$:[139]D$[178]"" [167] 5024 5030 [139] D$[178]"INPUT"[167] GG[178]GG[170]1 5031 [139] D$[178]"LET" [167] 10000 5032 [139] D$[178]"DIM"[167] GG[178]GG[171]1 5033 [139] D$[178]"READ"[167] 5050 5034 [139] GG[178]5 [167] GG[178]1 5035 [139] GG[178]0 [167] GG[178]4 5037 [139] GG[178]1 [167] P[178]155:Y[178]53 5038 [139] GG[178]2 [167] P[178]172:Y[178]53 5039 [139] GG[178]3 [167] P[178]187:Y[178]53 5040 [139] GG[178]4 [167] P[178]202:Y[178]53 5041 [137] 5023 5050 MM[178]GG:[137]5100 5100 [143] EXPORT 5101 [153]"LOAD":GG[178]1:P[178]154:Y[178]53:[151]53269,1 5103 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^WAIT 5104 PRINT"[176][206][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][205][174] 5105 [153]"PEEKFN *** EXPORT MENUE II *** +PEEK 5110 PRINT"[173][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][206][189] 5111 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXPWAIT" 5112 [153][166]1)" LAND/REGION: "E$(MM)" !" 5113 [153][166]1)" WAS SOLL  EXPORTIERT WAIT WERDEN ? 5114 PRINTSPC(1)" 5115 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR " 5116 [153][166]1)" - WOLLE 5117 PRINTSPC(1)" - HOPFEN 5118 [153][166]1)" - PAPIER 5120 PRINTSPC(1)" - ZURUECK 5122 [153]:[129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR " 5123 [151] V[170]1,P:[151]V[170]0,Y 5124 [161] D$:[139]D$[178]"" [167] 5124 5130 [139] D$[178]"INPUT"[167] GG[178]GG[170]1 5131 [139] D$[178]"LET" [167] 5000 5132 [139] D$[178]"DIM"[167] GG[178]GG[171]1 5133 [139] D$[178]"READ"[167] 5150 5134 [139] GG[178]5 [167] GG[178]1 5135 [139] GG[178]0 [167] GG[178]4 5137 [139] GG[178]1 [167] P[178]154:Y[178]53 5138 [139] GG[178]2 [167] P[178]172:Y[178]53 5139 [139] GG[178]3 [167] P[178]187:Y[178]53 5140 [139] GG[178]4 [167] P[178]202:Y[178]53 5143 [137] 5123 5150 [145] GG [137] 6000,6100,6200,5000 6000 [143] WOLLE 6001 [153]"LOAD":[151]53269,0 6002 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR " 6003 [153][166]1)" WOLLE EXPORT:"E$(MM)"." 6005 [129]I[178]1[164]19:[153]"CLR WAIT-";:[130]:[153]"CLR " 6006 [153][166]1)" WOLLE "W" KG.";[163]20);"GELD "A"" 6007 [153][166]1)" WIEVIEL WOLLE EXPORTEIEREN ? 6009 INPUT " [154] ---> [146] ";WC 6010 IF WC>W THEN 6090 6011 W=W-WC 6012 PRINTSPC(1)" DU LAESST"WC" WOLLE EXPORTIEREN ! 6015 UV[178][181](2[172][187](1))[170]1 6016 [145] UV [137] 6020,6030 6020 [153][166]1)" DIE WOLLE ERREICHT UNBESCHADET IHREN 6021 PRINTSPC(1)" BESTIMMUNGSORT !" 6022 IF MM=4 THEN 6025 6023 DL=WC*MM:DL=DL+W:DL=DL-S:DL=DL+INT(50*RND(1))+1:W=W-WC 6024 PRINTSPC(1)" DEIN GEWINN BETRAEGT:"DL" $":A=A+DL:GOSUB10:GOTO5100 6025 DL=WC*MM:DL=DL+W:DL=DL+S:DL=DL+INT(50*RND(1))+1:DL=DL+222:W=W-WC 6026 PRINTSPC(1)" DEIN GEWINN BETRAEGT:"DL"":A=A+DL:GOSUB10 6029 GOTO 5100 6030 IF MM=1 THEN 6035 6031 PRINTSPC(1)" MALAYSISCHE PIRATEN KAPERN DAS 6032 [153][166]1)" SCHIFF !":[141]10:[137] 5100 6035 [137] 6020 6090 [153][166]1)" SOVIEL WOLLE BESIZT DU NICHT !":[141]10:[137]5100 6100 [143] HOPFEN 6101 [153]"LOAD":[151]53269,0:WC[178]0 6102 [129]I[178]1[164]19:[153]"SYS WAIT-";:[130]:[153]"SYS " 6103 [153][166]1)" HOPFEN EXPORT:"E$(MM)"." 6105 [129]I[178]1[164]19:[153]"SYS WAIT-";:[130]:[153]"SYS " 6110 [153][166]1)" HOPFEN"H" KG.";[163]20);"GELD"A"$ 6115 PRINTSPC(1)" WIEVIEL HOPFEN EXPORTIEREN ? 6119 [133] " CONT ---> WAIT ";WC 6120 [139] WC[177]H [167] 6190 6121 QQ[178]MM[172]S:QQ[178]QQ[170]100:H[178]H[171]WC:A[178]A[170]QQ 6123 [153][166]1)" DU LAESST"WC" KG HOPFEN EXPORTIEREN 6124 PRINTSPC(1)" GEWINN:"QQ"$ !" 6125 GOSUB10:GOTO5100 6190 PRINTSPC(1)" SOVIEL HOPFEN BESIZT DU NICHT !":GOSUB10:GOTO5100 6200 REM PAPIER 6201 PRINT"[147]":POKE53269,0:WC=0 6202 FORI=1TO19:PRINT"[154] [146]-";:NEXT:PRINT"[158] " 6203 PRINTSPC(1)" PAPIER EXPORT:"E$(MM)"." 6205 FORI=1TO19:PRINT"[154] [146]-";:NEXT:PRINT"[158] " 6206 PRINTSPC(1)" PAPIER"D" KG.";TAB(20);"GELD "A"" 6210 PRINTSPC(1)" WIEVIEL [158] PAPIER [146] EXPORTIEREN ? 6212 [133] "  ---> WAIT ";PB 6213 [139] PB[177]D [167] 6280 6215 [153][166]1)" DU LAESST"PB" KG EXPORTIEREN.":D[178]D[171]PB 6216 [139] MM[178]1 [167] 6230 6218 [139] MM[178]2 [167] 6240 6219 [139] MM[178]3 [167] 6240 6220 [139] MM[178]4 [167] 6230 6230 DX[178]PB[172]L:DX[178]DX[171]S:DX[178]DX[170][181](50[172][187](1))[170]1 6231 [153][166]1)" STUERME VERNICHTEN EIN TEIL DER 6233 PRINTSPC(1)" LADUNG ! GEWINN:"DX" $":A=A+DX 6234 GOSUB10:GOTO5100 6240 DX=PB*L:DX=DX+S:DX=DX+INT(150*RND(1))+1:DX=DX+400 6241 PRINTSPC(1)" DAS PAPIER ERREICHT UNBESCHADET DEN 6243 [153][166]1)" BESTIMMUNGSHAFEN !" 6245 [153][166]1)" SYS GEWINN: WAIT "DX"$":A[178]A[170]DX 6246 [141]10:[137]5100 6280 [153][166]1)" SOVIEL PAPIER BESITZT DU NICHT !":[141]10:[137]5100 10000 [143] JAHRES ENDE 10001 [153]"LOAD" 10002 [129]I[178]1[164]20:[153]"--";:[130]:CN[178]CN[170]1 10003 [153][166]1)"DAS JAHR IST ZU ENDE UND DU ENT= 10005 PRINTSPC(1)"RICHTEST 200 $ ABGABEN AN DIE KRONE":A=A-200 10008 IF A<0 THEN 10010 10009 GOTO10020 10010 PRINTSPC(1)"DU BEKOMMST EINEN ZUSCHUSS DER KRONE 10011 [153][166]1)"IN HOEHE VON 500 $":A[178]A[170]500 10020 GK[178][181](5[172][187](1))[170]1 10021 [145] GK [137] 10030,10040,10050,10060,10040 10030 DP[178][181](5[172][187](1))[170]1 10031 [153][166]1)"IN "C$(DP)" IST EIN STREIK DER 10032 PRINTSPC(1)"SCHAFSCHORRER AUSGEBROCHEN ! SIE FOR= 10033 [153][166]1)"DERN HOEHERE LOEHNE !" 10034 [133]" [H]OEHERE CONT LOEHNE WAIT ODER [W]ENIGER ";V$ 10035 [139] V$[178]"H" [167] ZD[178]ZD[170]2:[137]10039 10037 [139] V$[178]"W" [167] ZD[178]ZD[171]1:[137]10039 10038 ZD[178]ZD[170]1 10039 [153][166]1)"SO SOLL ES SEIN !":[137]15000 10040 [153][166]1)"ES GIBT KEINE BESONDEREN NEUIEGKEITEN 10041 PRINTSPC(1)"IM LAND !" 10042 GOTO15000 10050 FC=INT(2*RND(1))+1 10051 ON FC GOTO 10052,10056 10052 PRINTSPC(1)"DIE HOPFENLAUS VERNICHTET EIN TEIL 10053 [153][166]1)"DEINER ERNTE !":H[178]H[171]1000 10054 [139] H[179]0 [167] H[178]10 10055 [137]15000 10056 [153][166]1)"AUSBESSERUNGSARBEITEN AN DEN HAFEN":GZ[178][181](5[172][187](1))[170]1 10057 RD[178][181](200[172][187](1))[170]1:RD[178]RD[170]100 10058 [153][166]1)"VON "C$(GZ)" KOSTEN DICH"RD"$ !":A[178]A[171]RD 10059 [137]15000 10060 FF[178][181](4[172][187](1))[170]1:[153][166]1)"EIN SCHIFF MIT"WS$(FF)" SIEDLERN 10061 PRINTSPC(1)"ERREICHT DIE INSEL !":ZD=ZD-3 10063 GOTO15000 15000 PRINTSPC(1)"NACHRICHTEN AUS DER HEIMAT:" 15010 IF CN=1873 THENPRINTSPC(1)"DREIKAISERABKOMMEN (RUSS.,OEST.,DEU.)." 15011 IF CN=1877 THENPRINTSPC(1)"ENDE DES DREIKAISERABKOMMEN. 15012 [139] CN[178]1878 [167][153][166]1)"BERLINER FRIEDENDSKONGRESS ! 15015 IF CN=1879 THENPRINTSPC(1)"DEUTSCH-OESTERREICHE ZWEIBUND. 15016 [139] CN[178]1887 [167][153][166]1)"RUECKVERSICHERUNGSVERTRAG (DEUT.-RUS.) 15017 IF CN=1893 THENPRINTSPC(1)"ZWEIBUND RUSSLAND UND FRANKREICH." 15018 IF CN=1904 THENPRINTSPC(1)"TASMANIEN WIRD PROVINZ VON AUSTRALIEN. 15020 [139] CN[178]1904 [167][153][166]1)"ENTENTE CORDIALE (FRANKREICH-ENGLAND) 15021 IF CN=1907 THENPRINTSPC(1)"RUSSLAND SCHLIESST SICH DER ENTENTE AN 15022 [139] CN[178]1914 [167][153][166]1)"DER ERSTE WELTKRIEG BRICHT AUS !!! 15025 IF CN>1915 THEN 20000 15027 IF HB=1 AND HA=1 THEN 15100 15028 IF A<-1000 THEN 20000 15029 IF ZD=10 THEN 20000 15030 IF A>20000 AND XV=0 THEN16000 15031 PRINTSPC(1)"[158] SPIELER [146] "W$" ! 15033 [141] 10 15034 [139] H[179]0 [167] H[178]0 15035 [139] L[179]0 [167] L[178]0 15036 [139] D[179]0 [167] D[178]0 15038 [139] W[179]0 [167] W[178]0 15039 [139] S[179]0 [167] S[178]0 15050 [137]50 15100 [139] HC[178]1 [175] HD[178]1 [167] 15200 15101 [137] 15028 15200 [139] A[177]50000 [167] 15300 15201 [137] 15028 15300 [153]"LOAD" 15301 [129]I[178]1[164]19:[153]"PRINT# WAIT-";:[130]:[153]"PRINT# " 15302 [153][166]1)"GRATULIERE DU HAST ES GESCHAFFT ! DU 15303 PRINTSPC(1)"HAST DEINE AUFGABE ERLEDIGST UND WIRST 15305 [153][166]1)"AN DEN KOENGLICHEN HOF BESTELLT. DORT 15306 PRINTSPC(1)"WIRST DU ZUM RITTER GESCHALGEN !!! 15309 [141]10:A[178]1:B[178]3 15310 [151] 53280,A:[151]53281,B:A[178]A[170]1:B[178]B[170]2 15312 [139] A[178]255 [176] B[178]255 [167] A[178]1:B[178]1 15320 [137] 15310 16000 [153][166]1)"DIE 'BANK OF TASMAN' WIRD UEBERFALLEN 16001 PRINTSPC(1)"MAN KLAUT DIR 10000 $ !":A=A-10000:XV=1:GOSUB10:GOTO50 20000 PRINTSPC(1)"EIN JUNGER MANN KOMMT IN DEIN BUERO 20001 [153][166]1)"UND SETZT SICH AUF DEINEN STUHL. ER 20005 PRINTSPC(1)"ERKLAERT DAS ER NUN DER CHEF IST UND 20006 [153][166]1)"SCHMEISST DICH RAUS !!!" 20007 [153][166]1)"GAME OVER "W$" !!!":[137]15309 30000 [143] ANFANG 30001 [153]"LOAD":[143] ANFANG 30702 [153]" CONTORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^ 30704 PRINT"[154][176][207][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][154][208][174] 30705 [153]"CONTPEEKFNFN VAN DIEMEN'S LAND +CONT+PEEK 30706 PRINT"[154][194][165][165] [170][154][170][194] 30707 [153]"CONTPEEKFNFN PUBLIC DOMAIN SIMULATION +CONT+PEEK 30708 PRINT"[154][194][165][165] [170][154][170][194] 30718 [153]"CONTPEEKFNFN (W) BY PETER DIEHM AUG./SEPT. +CONT+PEEK 30728 PRINT"[154][194][165][165] [170][154][170][194] 30738 [153]"CONTPEEKFNFN ---> 1991 <--- +CONT+PEEK 30748 PRINT"[154][194][165][165] [170][154][170][194] 30749 [153]"CONTPEEKFNFNFUER DIE DATA HOUSE PUBLIC DOMAIN+CONT+PEEK 30750 PRINT"[154][194][165][165] LISTE ! [170][154][170][194] 30751 [153]"CONTPEEKFNFN +CONT+PEEK 30786 PRINT"[154][173][204][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][154][186][189] 30797 [153]" CONT/LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP" 30799 [129]I[178]1[164]5500:[130]:[142]